Ì i 2
main
[guar.urn]
*(B)BGR[bgr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
guar.urn 47 URN L bgr
calc.next.stmt.no 3 PINT R VAL=%BAR.GUAR.next.stmt.msg(guar.urn)
comment.text 79 FREE L *(B)BGR[bgr]CO|0
contract.1st.pmt.dt 8 DATE L *(B)BGR[bgr]|16
contract.amount 9 MONEY R *(B)BGR[bgr]|14
contract.date 8 DATE L *(B)BGR[bgr]|13
contract.odue 4 PINT R VAL=(%BAR.GUAR.contract.odue(guar.urn)>0)
contract.paid 9 MONEY R VAL=%BAR.GUAR.contract.paid(@BAR.GUAR.guar.num)
cycle.day 2 PINT R *(B)BGR[bgr]S|4
edit.or.switch.guar.num 1 FREE L VAL=@t.BAR.PAT.edit.or.switch.guar.num
guar.adr1 30 FREE L *(B)BGR[bgr]|3
guar.adr2 30 FREE L *(B)BGR[bgr]|4
guar.bus.phone 18 PHONE L *(B)BGR[bgr]|9
guar.change.no 15 FREE L *(B)BGR[bgr]|12
guar.city 20 FREE L *(B)BGR[bgr]|5
guar.email 40 FREE L *(B)BGR[bgr]AI|0
guar.email.yn 1 YN L *(B)BGR[bgr]AI|1
guar.emp.addr 30 FREE L *(B)BGR[bgr]E|2
guar.emp.city 30 FREE L *(B)BGR[bgr]E|3
guar.emp.name 30 FREE L *(B)BGR[bgr]E|1
guar.emp.phone 18 PHONE L *(B)BGR[bgr]E|6
guar.emp.state 2 FREE L *(B)BGR[bgr]E|4
guar.emp.status 10 FREE L MIS.EMP.STATUS *(B)BGR[bgr]E|8
guar.emp.zip 10 ZIP.POST L *(B)BGR[bgr]E|5
guar.emplr.id 10 FREE L MIS.EMPLR *(B)BGR[bgr]E|0
guar.emplye.id 10 FREE L *(B)BGR[bgr]E|9
guar.home.phone 18 PHONE L *(B)BGR[bgr]|8
guar.id 47 FREE L VAL=(@BAR.GUAR.guar.num_" "_@BAR.GUAR.guar.name'=" "
VAL=)
guar.letter 8 FREE L BAR.LETTER *(B)BGR[bgr]S|10
guar.name 30 FREE L *(B)BGR[bgr]|1
guar.num 15 FREE L *(B)BGR[bgr]|0
guar.occup 20 FREE L *(B)BGR[bgr]E|7
guar.soc.sec 15 FREE L *(B)BGR[bgr]|10
guar.state 2 FREE L *(B)BGR[bgr]|6
guar.zip 10 ZIP.POST L *(B)BGR[bgr]|7
hold.stmts 1 YN L *(B)BGR[bgr]S|1
id 47 URN L BAR.GUAR VAL=(@BAR.GUAR.guar.num_" "_@BAR.GUAR.guar.name'=" "
VAL=)
last.pat.edit 8 DATE L *(B)BGR[bgr]|15
last.st.date 8 DATE L VAL=@BAR.PAT.txn.ser.date[@BAR.GUAR.oldest.acct^AA,"O"
VAL=,@BAR.PAT.last.st.txn[AA]]
next.stmt.ctrc.offset 2 PINT R *(B)BGR[bgr]NS|3
next.stmt.date 8 DATE L *(B)BGR[bgr]NS|0
next.stmt.date.disp 8 DATE L VAL=IF{"P"=@BAR.PARAM.pt.ot.guar.stmts @BAR.PAT.next.s
VAL=tmt.date;@BAR.GUAR.next.stmt.date[@BAR.PAT.guar.id
VAL=]}
next.stmt.dunning.msg 8 FREE L BAR.DUN.MSG *(B)BGR[bgr]S|9
next.stmt.msg.number 2 PINT R *(B)BGR[bgr]NS|1
next.stmt.no 3 PINT R *(B)BGR[bgr]S|0
next.stmt.period 3 PINT R *(B)BGR[bgr]NS|2
next.stmt.seq.no 3 PINT R *(B)BGR[bgr]S|2
oldest.acct 44 URN L BAR.PAT *(B)BGR[bgr]S|5
on.hold.by 10 FREE L MIS.USER *(B)BGR[bgr]S|7
on.hold.date 8 DATE L *(B)BGR[bgr]S|8
pt.relat 10 FREE L MIS.RELAT VAL=@t.BAR.PAT.pt.relat
sort.id 47 FREE L
sort.name 30 FREE L *(B)BGR[bgr]|11
sort.order 10 FREE L *(B)BGR[bgr]S|6
Ì € i 2
guar.stmt.incl.patients
[guar.urn, guar.incl.pat.stmt.date,guar.incl.pat]
*(B)BGR[bgr]I[bzAG,bz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
guar.incl.pat.stmt.date 8 DATE L bzAG
guar.incl.pat 44 URN L BAR.PAT bz
guar.incl.exp.date 8 DATE L *(B)BGR[bgr]I[bzAG,bz]|0
Ì € i 2
guar.stmt.print.patients
[guar.urn, guar.pat.date,guar.pat.account]
*(B)BGR[bgr]P[bzAG,bz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
guar.pat.date 8 DATE L bzAG
guar.pat.account 44 URN L BAR.PAT bz
Index Files Subscripts/Physical Base
contract.x [guar.urn]
?(B)BGCX[bgr]
id.x [sort.id,guar.urn]
?(B)BGIX[bgrID,bgr]
name.x [sort.name,guar.urn]
?(B)BGNX[bgrN,bgr]
next.gstmt.x [next.stmt.date,guar.urn]
?(B)BGRSNX[bgrNS,bgr]
number.x [guar.num,guar.urn]
?(B)BGRX[bgrR,bgr]
stmt.hold.x [guar.urn]
?(B)BGSH[bgr]
|
|
| |